1001C 
101 ! ( 
102 ! ( 
150! ( 
151 |( 
152! ( 
153 ! ( 
154 | ( 
155 ! ( 

156 i < 

157 |( 

158 i ( 

159 |( 
160 ! ( 
161 i C 
1G2IC 
163 i < 
1 64 I £ 

165 ! ( 

166 ! ( 

180 i £ 

181 i £ 


BEGINING OF ATTACK FIGHTER GAME V 
ATTACK FIGHTER PATTERNS - LEADER PATTERN ) 

MISSIONS- LASAR LZ ) HEX 
ATF VARIABLES ) 

PHASOR INTERCEPT CHECK ROUTINE ) 

TIME BASED VECTOR UPDATE - WITH LIMIT CHECKING > 

FORMATION LEADERS ALMOST NULL INTERRUPT ROUTINE ) 

ANIMATION TO ACTIVATE FORMATIONS ) 

ROUTINE TO ACTIVATE THE FORMATIONS > 

KAMIKAZE ATTACK COORDINATOR ) 

FORMATION MOVE ROUTINE - RANDOM MOVES FIGHTER FORMATIONS ) 
INTERRUPT ROUTINE TO DRAW LASER BLAST > 

LASER DRAWER CONTINUED ) 

LASER ANIMATION AND VECTOR START ROUTINE ) 

CHECK FORMATION STATE VARIABLE AND EITHER FIRE OR REVECTOR > 
FORMATION MOVE CHECK ROUTINE ) 

ANIMATION LIST FOR FI REBASE STUFF ) 

ATTACK FIGHTERS COLORS AND WAIT ROUTINE ) 

INITIALIZE ATTACK FIGHTERS GAME --■-- 

SCAN LOOP AND STARTUP >’-----■-. 

UPSIDE DOWN RELABS ROUTINES FOR COCKTAIL MODE USE ) 

TEST GOODIES ) 



\ 



+-Block - 1 - 

0j< BEG INI MG OF ATTACK FIGHTER GAME 
1 CC? NOT IFTRUE DATA GSAB 0 B, 0 , 
2< — > 

3 S 
4! 

5 \ 


6 

7 

S 

3 

10 
11 
12 
13 


0 


I FEND 


14 ! 

15| 

H-B1 ock 101—- 

0! ( ATTACK FIGHTER PATTERNS - LEADER PATTERN ) 


1 i 

DATA 

LEADER 4 

B 

, ii : 

B, 

QUAD 


21 

©00© 

B t 

©00© 

B j 

3000 

B i 

©00© 

E» 

3 i 

0003 

B, 

3333 

B, 

3000 

B, 

0000 

B , 

4 ! 

0000 

B, 

0220 

B, 

2000 

B, 

0000 

B / 

5 1 

0000 

B , 

0220 

B , 

0000 

B, 

0000 

Bi 

£ : 

0000 

B, 

2220 

B, 

0220 

B, 

0000 

B, 

7 ! 

1111 

B, 

2222 

B, 

2220 

B , 

0000 

E, 

as 

0000 

B, 

2220 

E, 

©22© 

B , 

©000 

B / 

3! 

0000 

B, 

0220 

B, 

0000 

B, 

0000 

B , 

10S 

0000 

E, 

0220 

E ■ 

2000 

B , 

©000 

E, 

11 ! 

0003 

B , 

3333 

E, 

3000 

B, 

0000 

B, 

121 

000© 

B, 

0000 

E, 

3 0 0 0 

B t 

0000 

B / 

13| 

DECIMAL 

-> 






14 | 









15| 









+ 

-- 

— 

-B1ock 


i 02- 

— 




0!( MISSIONS- LASAR LZ ) HEX 
IS DATA LZSCORE ASM 

2 i 28 MASTER *G2 #D3 *A4 TONES CC ABVOLS 1C MCVOLS 
3! 01 1 20 MOVENOISE 1 2 0 MOVESOUND 1 COUNTPANS PLAY 

' 41' 20 1 -1 0 MOVENOISE 1 -1 28 8 RAMBLE 1 COUNTPANS PLAY 
5 I KBSCORE LDPCC (. Jump -to background sound ) 

G! DECIMAL jS 

7 \ 

8 ! 

31 

10 S 

11 ! 

12 S 

13 i 
14! 

15! 
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-j-—-B1 ock 

0 !( ATF VARIABLES 
lie V= TBVl 0 v= 

0 V= FSV1 0 V= 
DECIMAL —> 


150 - 

) 

TBV2 5 ARRAY FI 5 ARRAY F2 
FSV2 


+-Block 151- 

|C PHASOR INTERCEPT CHECK ROUTINE ) 
iDECIMAL F= INTLOG 
I5UBR PINTER <ASSEMBLE 
iPINTERFLAG LDA, A ANA, RNZ, 
i1 C MVI, CHECKALL CALL, RZ, 

!PQSRH PQS Y RESX, PGSDW POS Y SETX, 
iVYL Y L LDX, VYH Y H LDX, PINTERY SHLD, 

|VXL Y L LDX, VXH Y H LDX , PINTERX SHLD/ 
iVRACK Y A LDX, PINTERN STA, 
i1 A MVI, 

S P1NTERFLAG STA, 

!( INVADERSLEFT LDA, A DCR, INVADERSLEFT STA, ) 
iverfise CALL, PQSRH PQS X RESX, 
iRET, ASSEMBLE> —> 


+-Block 152 - 

S < TIME BASED VECTOR UPDATE - WITH LIMIT CHECKING ) 

iDECIMAL F= LCD! F= LCDS 
S SUER VUPDLC <ASSEMBLE 

|C A MOV, A ANA, RZ, < DONT IF ZERO VECTORING WANTED ) 

I VXL X L LDX, VXH X H LDX, VDXL X E LDX, VDXH X D LDX, C B MOV 

i LABEL LCD! D DAD, LCD! DJN2, H A MOV, VDDXL X CMPX, CY, IF, 

! VDDXL X H LDX, 0 L MVI, L VDXL X STX, L VDXH X STX, ELSE, 

1VDDXH X CMPX, CY~ , IF, VDDXH X H LDX, 0 L MVI, L VDXL X STX, 

* L VDXH X STX, THEN,' THEN, L VXL X STX, H VXH X STX, 

! VYL X L LDX, VY« X H LDX, VBYL X E LDX,' VDYH X D LDX, C F MOV 

[LABEL LCDS D DAD, LCDS DJNZ, H A MOV, VDDYL X CMPX, CY, IF, 

iVBDYL X H LDX, 0 L MVI, L VDYL X STX, L VDYH X STX, ELSE, 

■ VDDYH X CMPX, CY~.« IF, VDD Y H X H LDX, 0 L MVI, L VDYL X STX, 

SL VDYH X STX, THEM, "HEN, L VYL X STX, H VYH X STX, 

!40 VXZW X MVIX, RE", ASSEMBLE> 

!DECIMAL —> 
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-Block 153 

( FORMATION LEADERS 
SUBR FLEADER TBCALC 
DECIMAL —> 


ALMOST NULL INTERRUPT ROUTINE 
CALL , VUPDLC CALL , aup CALL, 


) 

KILLOFF JMP 


t 



+-Block 154- 

! ( ANIMATION TO ACTIVATE FORMATIONS ) 
i HEX 

!DAT A TEVTL ASM FLEADER SETR NULPAT SETP 4010 0A00C SETDDC 
[FOREVER 120 SWA IT EVERFOR 

[DATA ATBV1 ASM 3800 SETXC 1000 SETYC TBVTL AUMP 
[DATA ATBV2 ASM 3800 SETXC 4800 SETYC TBVTL AUMP 
[ DATA ALEADER ASM LEADER SETP FOREVER 120 SWAIT EVERFOR 
[DECIMAL —> 


■4 -Block 155- 

[( ROUTINE TO ACTIVATE THE FORMATIONS ) 

[HEX : STARTFORMATIONS GETNODE TBV1 ! GETNODE TBV2 ! 

[5 0 DO GETNODE I FI ! GETNODE I F2 ! LOOP 

[ATBV1 0 0BA TBV1 @ XVSTART ATEV2 0 0BA TEV2 @ XVSTART 

[ TBV1 0 40© 0 AKAMI ©3 1B2 0 FI 0 FSTART 

[ TEV2 # 40© 0 AKAMI 03 1E2 0 F2 0 FST ART 

[ TBV1 @ 400 1000 AKAMI ©3 1B2 1 FI t FST ART 

ITEV2 @ 40© 10©0 AKAMI ©3 IBS 1 F2 @ FST ART 

[ TBV1 0 400 2000 AKAMI 03 122 2 FI $ FSTART 

[TBV2 © 400 2®@0 AKAMI 03 1332 2 F2 Q FST ART 

1SKILLFACTCR BO IF "”3V| © 8©0 1000 AKGORF 03 1E2 3 FI © FSTART 
S TBV2 0 800 1000 AKGORF ©3 1B2 3 F2 @ FSTART @A ELSE 8 THEN 
I INVABERSLEPT ! TBV1 0 0 10©© ALEADER ©4 1E2 4 FI © FSTART 
' TBV2 t © 1000 ALEABER 04 :1B2 * F2 « FSTART j 
! DECIMAL —> 
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14 
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1 

2 
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7 

8 

3 

10 
i 1 
12 

13 

14 
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6 
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-Block 156- 

( KAMIKAZE ATTACK COORDINATOR ) 

HEX SUBR KAMI ATC ATTACKTIMER LDA, A ANA , RNZ, 

LDAR, 7 ANI, 4 CPI, CY, IF, 0 FI H LXI, 

ELSE, 0 F2 H LXI, 3 ANI, THEN, RLC, A E MOV, 0 D MVI, 

D DAD, M E MOV, H INX, M D MOV, D PUSH, X POPX, DI, 

PGSRH PQS X EITX, RZ, ASFLOK VAUXS X BITX, RZ, 

VYH X A LDX, 20 SUI, 90 CPI, RNC, 

LDAR, 1 ANI, 0=, IF, KAMIATL H LXI, ELSE, KAMIATR H LXI, 
THEN, ASFLOK VAUXS X RESX, CRASHA CALL, LDAR, 7F ANI, 

20 ADI, ATTACKTIMER STA, PLAYKBS JMP, 

CODE CKKAMI X PUSHX, Y PUSHX, E PUSH, KAMIATC CALL, El, 

B POP, Y POPX, X POPX, NEXT 
DECIMAL —> 


-Block 157- 

( FORMATION MOVE ROUTINE - RANDOM MOVES FIGHTER FORMATIONS 
HEX SUBR FMOVER ( IN IX=FORM VECT DE=Y BIAS ) 

D PUSH, SKILLFACTOR LDA, A ANA, 0=, IF, 40 D LXI, D PUSH, 

30 D LXI, ELSE, 20 D LXI, D PUSH, 18 D LXI, THEN, 

rnd CALL, D POP, D DAD, H PUSH, < TIME ) 

2000 D LXI, rnd CALL, 2000 D LXI, D DAD, D POP, D PUSH , DI, 
VXL X C LDX, VXH X 3 LDX, CDELTA CALL, L VXL X STX, 

H VXH X STX, E VDXL X STX, D VDXH X STX, 

4000 D LXI, rnd CALL, D POP, B POP, D PUSH, B DAD, 

VYL X C LDX, VYH X E LDX, CDELTA CALL, 

L VYL X STX, H VYH X STX, E VDYL X STX, D VDYH X STX, El, 

D POP, RET, 

DECIMAL —> 


_____——Block 158-—— 

( INTERRUPT ROUTINE TO DRAW LASER BLAST ) 

( VDDXL=STATE VAR, VDDXH=X COUNTER, VBDYHL=SCREEN ADDR 


SUBR BUMPLAZ A INR, A VDDXL X STX, VXH X A 
VSAL X L LDX, VSAH X H LDX, L VDDYL X STX, 
HEX F- DRL F= DRLC 

SUER SLASER < ASSEMBLE PQTE X C LDX, & 

C A MOV, A ANA, KILLOFF JZ, 

VDDXL X A LDX, A ANA, ©=, IF, BUMPLAZ 

VDDXH X A LDX, A , €>=, IF, VDDXL X 


LDX, A VDDXH X STX 
H VDDYH X STX, RET 


PQTB X MV IX, 


r Ai 


3 

I 0= / IF, 

FQSRH 

PQS X RESX* ELSE* 

1 0 

\ ELSE , C 

B MOV, 

C SLB, 0<, IF, C 

11 

1 VDDXH X 

A LDX, 

S 3yS, A VJJDXH X 

12 

| VDDYL X 

L LDX, 

X H L J?X * 

13 

1 -- > 



14 

i 



15 

5 




Ufti-L, THEN, 

A LDX, 2 CPI, 
BUMPLAZ CALL, THEN, 
ADD, A B MOV, THEN, 


CTy 


XAGIC OUT , 
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+---Block 159---- 

®i( LASER DRAWER CONTINUED ) 

1|COCKTAIL LDA, A ANA, @=, IF/ 

2!LABEL DRL H DCX, 55 M MVI, DRL DJNZ, 

3 I ELSE , 

4!LABEL DRLC H INK, 55 M MVI/ DRLC DJN2, 

5!TWEN, 

6|L VDDYL X STX/ H VDDYH X STX, 

7!THEN/ KILLOFF JMP, ASSEMBLE) DECIMAL —> 

S ! 

9 S 

10 i 

11 ! 

I 
I 


+—-Block 1 SO- 

i< LASER ANIMATION AND VECTOR START ROUTINE ) 

! HEX 

S DATA LASERA ASM SLASER SETR NULPAT SETP 4 SWAIT 

1SUBR LSHOT DI/ VXL X L LDX, VXH X H LDX , H PUSH/ 

!VYL X L LDX, VYH X H LDX, 1500 D LXI, D DAD, H PUSH, 
iLASERA H LXI, H PUSH, 

10 H LXI, H PUSH, 

!0A2 H LXI, H PUSH, 

!XYVSTART JMP, 

! DECIMAL —> 

! 

I 

i 

1 

I 

1 

I 

H-Block 161-—— 

! ( CHECK FORMATION STATE VARIABLE AND EITHER FIRE OR REVECTOR > 
1 SUER 2APF0RM ( FREEZE VECTOR POINTED AT BY IX ) 

IA XRA, A VDXL X STX, A VDXH X STX, A VDYL X STX, A VDYH X STX, 

S RET, 

I 

|SUBR FCHECK M A MOV, A ANA, 0=, IF, 

IA INR, A M MOV, f. LASER SHOOTER > DI, 

IFQSRH PQS Y BITX, 0< >, IF, 2APF0RM CALL, 

[ VXH X A LDX, A INR, A E MOV, 0 D MVI, 0 PUSH, < TIME STUFF ) 
iLSHOT CALL, L2SCCRE W LXI, MB2 Y LXIX, pmusic CALL, D POP, 

I THEN, ELSE, A XFi'.- A M MOV, FMOVER CALL, 

!THEN, RET, 

I DECIMAL —> 

i 

1 
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-Block 162-- 

C FORMATION MOVE CHECK ROUTINE > 

F= NCI F- NC2 

HEX CODE FMC <ASSEMBLE 

X PUSHX, Y PUSHX, B PUSH, 

TIMER1 LDA, A ANA, NCI JRNZ, 4 FI LI YD, 

TBV1 LIXD, 100© D LX I, FSV1 H LXI, FCHECK CALL, TIMER1 SDED, 
LABEL NCI TIMER3 LDA, A ANA, NC2 JRNZ, 4 F2 LIYD, 

TBV2 LIXD, 4800 D LXI, FSV2 H LXI, FCHECK CALL, TIMER3 SDED, 
LABEL NC2 

B POP, Y POPX, X POPX, NEXT ASSEMBLE> 

DECIMAL —> 


-Block 163- 

< ANIMATION LIST FOR FIREEASE STUFF ) 

SUBR ATFINTER CKATRS CALL, ( 0< >, IF, INVADERSLEFT LDA, A DCR, 

INVADERSLEFT STA, THEN, ) EXPLODEFB CALL, 

X PUSHX, TEV1 LIXD, ZAPFORM CALL, 

TBV2 LIXD, ZAPFORM CALL, X POPX, RET, 

HEX DATA ATFFEA ASM ATFINTER SETI 2005 B0©5 SETDDC PLAYERANIM 
AJMP DECIMAL —> 


8 

9 

10 

11 

12 

13 

14 

15 


-Block 164- 

( ATTACK FIGHTERS COLORS AND WAIT ROUTINE ) 

HEX 

DATA ATFCOLORS 7 E, 7D B, 0B E, 5A E, 7 B, 7D B, @B B, 


i F = NYD F= YWD F= SAL 

I CODE SCANARRAY < ASSEMBLE EXX, H POP, X PUSHX, 5 E MV I, 
I LABEL SAL M E MOV, H I NX, M D MOV, H I NX, 

ID PUSH, X POPX, PQSPH FQS X BITX, 

I0< >, IF, A3FL0K VAl'XS X BITX, NYD JRZ, THEN, 

I SAL D JNZ, 1 K LXI, YWD JMPR, 

I LABEL NYD 0 H LXI, 

I LABEL YWD X POPX, H PUSH, EXX, NEXT ASSEMBLE> 
i: ATFWAIT BEGIN BARK BS1S 0 FI SCANARRAY © FZ SCANARRAY 
ISHUTUP ; DECIMAL —> 


1 


5A E, 


AND END 










cn 4 s-cjN^©(joo»'j(ntn-^cjro>-‘© m -p- co w -* © <& co -a m oi a u n *■»■ © 01 ■$>■ ta ro 


2H QfjAftfG 


41® PINTERFLAG ! PINTER PHASINTR ! * ATFWAIT REINIT ! 

511 FSV1 ! 1 FSV2 ! 

6iATFFBA FBANIM ! ACTFB 
7iGETNODE DUP PV1 ! 0 SWAP ! 

&\3& ATTACKT1MER ! 10 TIMER! ! 4S TIMER3 ! ; 

9!DEC IMAL —> 

10 i 

11 ! 

I 
I 


+- E l oak l G5 - 

01< INITIALIZE ATTACK FIGHTERS GAME ) 

1 ! HEX : INITATF 0 FLOOD INITMISSIONRAM 
2 JDRAWMI SSI ONSCREEN 
31 


--Block 166 —-— 

( SCAN LOOP AND STARTUP ) 

: ATFSCAN FI RECHECK PHASORINTERCEPTCHECK CKKAMI FMC 
BMS PLAYERHITCHECK BARK j 

HEX : ATF INITATF STARTFORMATIONS 5 ATFCOLORS FUC 
EMUS IC E2MUSIC 

BEGIN ATFSCAN ENDOFFRAME @ END 
5 FDB i 

HEX AS GSAE U! ' ATF GSAB 1+ U! 

: ATFGO INITATF STARTFORMATIONS 

1 ATFCOLORS FUC - ----—-- 

600 0 DO CREDITS? y CKKAMl FMC LOOP 1 FDB 
' ATFGO GSAB 3 + U! 

DECIMAL IS 


31 *S 



I 


I 

1 









